\\ *** Printer-Interface *** 10oct86we Dieses File enthält das Printer-Interface. Die Definitionen für die Druckersteuerung müssen ggf. an Ihren Drucker angepaßt wer- den. PRINT lenkt alle Ausgabeworte auf den Drucker um, mit DISPLAY wird wieder auf dem Bildschirm ausgegeben. Zum Ausdrucken der Quelltexte gibt es die Worte pthru ( from to -- ) druckt Screen from bis to document ( from to -- ) wie pthru, aber mit Shadow-Screens printall ( -- ) wie pthru, aber druckt das ganze File listing ( -- ) wie document, aber für das ganze File \ Printer Interface Epson RX80\FX80 21oct86we Onlyforth \needs file? ' noop | Alias file? \needs capacity ' blk/drv Alias capacity Vocabulary Printer Printer definitions also 1 &13 +thru Onlyforth \ clear \ Printer p! and controls 18nov86we ' bcostat | Alias ready? ' 0 | Alias printer : p! ( n -- ) BEGIN pause printer ready? UNTIL printer bconout ; | : ctrl: ( 8b -- ) Create c, does> ( -- ) c@ p! ; 07 ctrl: BEL $7F | ctrl: DEL $0D | ctrl: RET $1B | ctrl: ESC $0A ctrl: LF $0C ctrl: FF \ Printer controls 09sep86re | : esc: ( 8b -- ) Create c, does> ( -- ) ESC c@ p! ; | : esc2 ( 8b0 8b1 -- ) ESC p! p! ; | : on: ( 8b -- ) Create c, does> ( -- ) ESC c@ p! 1 p! ; | : off: ( 8b -- ) Create c, does> ( -- ) ESC c@ p! 0 p! ; \ Printer Escapes Epson RX-80/FX-80 12sep86re $0F | ctrl: (+17cpi $12 | ctrl: (-17cpi Ascii P | esc: (+10cpi Ascii M | esc: (+12cpi Ascii 0 esc: 1/8" Ascii 1 esc: 1/10" Ascii 2 esc: 1/6" Ascii T esc: suoff Ascii N esc: +jump Ascii O esc: -jump Ascii G esc: +dark Ascii H esc: -dark \ Ascii 4 esc: +cursive Ascii 5 esc: -cursive Ascii W on: +wide Ascii W off: -wide Ascii - on: +under Ascii - off: -under Ascii S on: sub Ascii S off: super \ Printer Escapes Epson RX-80/FX-80 12sep86re : 10cpi (-17cpi (+10cpi ; ' 10cpi Alias pica : 12cpi (-17cpi (+12cpi ; ' 12cpi Alias elite : 17cpi (+10cpi (+17cpi ; ' 17cpi Alias small : lines ( #.of.lines -- ) Ascii C esc2 ; : "long ( inches -- ) 0 lines p! ; : american 0 Ascii R esc2 ; : german 2 Ascii R esc2 ; : normal 10cpi american suoff 1/6" &12 "long RET ; \ Umlaute 14oct86we | Create DIN Ascii ä c, Ascii ö c, Ascii ü c, Ascii ß c, Ascii Ä c, Ascii Ö c, Ascii Ü c, Ascii § c, | Create AMI Ascii { c, Ascii | c, Ascii } c, Ascii ~ c, Ascii [ c, Ascii \ c, Ascii ] c, Ascii @ c, here AMI - | Constant tablen | : p! ( char -- ) dup $80 < IF p! exit THEN tablen 0 DO dup I DIN + c@ = IF drop I AMI + c@ LEAVE THEN LOOP german p! american ; \ Printer Output 12sep86re | Variable pcol pcol off | Variable prow prow off | : pemit ( 8b -- ) p! 1 pcol +! ; | : pcr ( -- ) RET LF 1 prow +! pcol off ; | : pdel ( -- ) DEL pcol @ 1- 0 max pcol ! ; | : ppage ( -- ) FF prow off pcol off ; | : pat ( row col -- ) over prow @ < IF ppage THEN swap prow @ - 0 ?DO pcr LOOP dup pcol @ < IF RET pcol off THEN pcol @ - spaces ; | : pat? ( -- row col ) prow @ pcol @ ; | : ptype ( adr len -- ) dup pcol +! bounds ?DO I c@ p! LOOP ; \ Printer output 18nov86we Output: >printer pemit pcr ptype pdel ppage pat pat? ; Forth definitions : print >printer normal ; \ Variables and Setup bp 12oct86 Printer definitions ' 0 | Alias logo | : header ( pageno -- ) 12cpi +dark ." volksFORTH-83 FORTH-Gesellschaft eV " -dark 17cpi ." (c) 1985/86 we/bp/re/ks " 12cpi +dark file? -dark 17cpi ." Seite " . ; \ Print 2 screens across on a page 26oct86we | : 2lines ( scr#1 scr#2 line# -- ) cr dup 2 .r space c/l * >r pad c/l 2* 1+ bl fill swap block r@ + pad c/l cmove block r> + pad c/l + 1+ c/l cmove pad c/l 2* 1+ -trailing type ; | : 2screens ( scr#1 scr#2 -- ) cr cr &30 spaces +wide +dark over 4 .r &28 spaces dup 4 .r -wide -dark cr l/s 0 DO 2dup I 2lines LOOP 2drop ; \ print 6 screens on a page 18sep86we | : pageprint ( last+1 first pageno -- ) header 2dup - 1+ 2/ dup 0 ?DO >r 2dup under r@ + > IF dup r@ + ELSE logo THEN 2screens 1+ r> LOOP drop 2drop page ; | : >shadow ( n1 -- n2 ) capacity 2/ 2dup < IF + ELSE - THEN ; | : shadowprint ( last+1 first pageno -- ) header 2dup - 0 ?DO dup dup >shadow 2screens 1+ LOOP 2drop page ; \ Printing without Shadows b11nov86we Forth definitions also | Variable printersem 0 printersem ! \ for multitasking : pthru ( first last -- ) 2 arguments printersem lock output push print 1+ capacity umin swap 2dup - 6 /mod swap 0<> - 0 ?DO 2dup 6 + min over I 1+ pageprint 6 + LOOP 2drop printersem unlock ; : printall ( -- ) 0 capacity 1- pthru ; \ Printing with Shadows bp 12oct86 : document ( first last -- ) printersem lock output push print 1+ capacity 2/ umin swap 2dup - 3 /mod swap 0<> - 0 ?DO 2dup 3+ min over I 1+ shadowprint 3+ LOOP 2drop printersem unlock ; : listing ( -- ) 0 capacity 2/ 1- document ; \ Printerspool 14oct86we \needs Task \\ $100 $200 Task spooler : spool' ( -- ) \ reads word ' isfile@ offset @ base @ spooler depth 1- 6 min pass base ! offset ! isfile ! execute true abort" SPOOL' ready for next job!" stop ; \\ *** Printer-Interface *** 13oct86we Eingestellt ist das Druckerinterface auf Epson und kompatible Drucker. Die Steuersequenzen auf den Screens 2, 4 und 5 müssen gegebenenfalls auf Ihren Drucker angepaßt werden. Bei uns gab es mit verschiedenen Druckern allerdings keine Probleme, da sich inzwischen die meisten Druckerhersteller an die Epson- Steuercodes halten. Arbeiten Sie mit einem IBM-kompatiblen Drucker, muß die Umlaut- wandlung auf Screen 6 wegkommentiert werden. Zusätzliche 'exotische' Steuersequenzen können nach dem Muster auf den Screens 4 und 5 jederzeit eingebaut werden. \ Printer Interface Epson RX80 13oct86we setzt order auf FORTH FORTH ONLY FORTH falls das Fileinterface nicht im System ist, werden die ent- sprechenden Worte ersetzt. Printer-Worte erhalten ein eigenes Vocabulary. \ Printer p! and controls 10oct86we nur aus stilistischen Gründen. Das Folgende liest sich besser. Hauptausgabewort; gibt ein Zeichen auf den Drucker aus. Es wird gewartet, bis der Drucker bereit ist. (PAUSE für Multitasking) gibt Steuerzeichen an Drucker Steuerzeichen für Drucker. Gegebenenfalls anpassen! \ Printer controls 10oct86we gibt Escape-Sequenzen an den Drucker aus. gibt Escape und zwei Zeichen aus. gibt Escape, ein Zeichen und eine 1 an den Drucker aus. gibt Escape, ein Zeichen und eine 0 an den Drucker aus. \ Printer Escapes Epson RX-80/FX-80 10oct86we setzt bzw. löscht Ausgabe komprimierter Schrift. setzt Zeichenbreite auf 10 bzw. 12 cpi. Zeilenabstand in Zoll. schaltet Super- und Subscript abPerforation überspringen ein- und ausschalten. Es folgen die Steuercodes für Fettdruck, Kursivschrift, Breit- schrift, Unterstreichen, Subscript und Superscript. Diese müssen ggf. an Ihren Drucker angepaßt werden. Selbstverständlich können auch weitere Fähigkeiten Ihres Druk- kers genutzt werden wie Proportionalschrift, NLQ etc. \ Printer Escapes Epson RX-80/FX-80 13oct86we Hier wird die Zeichenbreite eingestellt. Dazu kann man sowohl Worte mit der Anzahl der characters per inch (cpi) als auch pica, elite und small benutzen. setzt Anzahl der Zeilen pro Seite; Einstellung: &66 lines oder &12 "long schaltet auf amerikanischen Zeichensatz. schaltet auf deutschen Zeichensatz. Voreinstellung des Druckers auf 'normale' Werte; wird beim Einschalten mit PRINT ausgeführt. \ Umlaute bp 12oct86 Auf diesem Screen werden die Umlaute aus dem IBM-(ATARI)-Zeichen satz in DIN-Umlaute aus dem deutschen Zeichensatz gewandelt. Wenn Sie einen IBM-kompatiblen Drucker benutzen, kann dieser Screen mit \\ in der ersten Zeile wegkommentiert werden. p! wird neu definiert. Daher brauchen die folgenden Worte p! nicht zu ändern, egal, ob mit oder ohne Umlautwandlung gearbei- tet wird. \ Printer Output 10oct86we aktuelle Druckerzeile und -spalte. Routinen zur Druckerausgabe entspricht Befehl ein Zeichen auf Drucker emit CR und LF auf Drucker cr ein Zeichen löschen (?!) del neue Seite page Drucker auf Zeile und Spalte at positionieren; wenn nötig, neue Seite. Position feststellen at? Zeichenkette ausgeben type Damit sind die Worte für eine eigene Output-Struktur vorhanden. \ Printer output 10oct86we erzeugt die Output-Tabelle >printer. Die folgenden Worte sind von FORTH aus zugänglich. schaltet Ausgabe auf Printer um. (Zurückschalten mit DISPLAY) \ Variables and Setup 10oct86we Diese Worte sind nur im Printer-Vokabular enthalten. Dieser Screen wird gedruckt, wenn es nichts besseres gibt. Druckt die Überschrift der Seite pageno. \ Print 2 screens across on a page 10oct86we druckt nebeneinander die Zeilen line# der beiden Screens. Die komplette Druck-Zeile wird erst in PAD aufbereitet. formatierte Ausgabe der beiden Screens nebeneinander mit fettgedruckten Screennummern. Druck erfolgt mit 17cpi, also in komprimierter Schrift. \ print 6 screens on a page 10oct86we gibt eine Seite aus. Anordnung der Screens auf der Seite: 1 4 Wenn weniger als 6 Screens vorhanden sind, werden 2 5 Lücken auf der rechten Seite mit dem Logo-Screen (0) 3 6 aufgefüllt. berechnet zu Screen n1 den Shadowscreen n2 (Kommentarscreen wie dieser hier). wie pageprint, aber anstelle der Screens 4, 5 und 6 werden die Shadowscreens zu 1, 2 und 3 gedruckt. \ Printing without Shadows b22oct86we Die folgenden Definitionen stellen das Benutzer-Interface dar. Daher sollen sie in FORTH gefunden werden. PRINTERSEM ist ein Semaphor für das Multitasking, der den Zugang auf den Drucker für die einzelnen Tasks regelt. PTHRU gibt die Screens von from bis to aus. Ausgabegerät merken und Drucker einschalten. Multitasking wird, sofern es den Drucker betrifft, gesperrt. Die Screens werden mit pageprint ausgegeben. wie oben, jedoch wird das komplette File gedruckt. \ Printing with Shadows 10oct86we wie pthru, aber mit Shadowscreens. wie printall, aber mit Shadowscreens. \ Printerspool 10oct86we Falls der Multitasker nicht vorhanden ist, wird abgebrochen. Der Arbeitsbereich der Task wird erzeugt. Mit diesem Wort wird das Drucken im Hintergrund gestartet. Aufruf mit : spool' listing spool' printall from to spool' pthru from to spool' document Vor (oder auch nach) dem Aufruf von spool' muß der Multitasker mit multitask eingeschaltet werden.
